home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / dbmsa / jul94 / lint12.gif

< prev

next >

Graphics Interchange Format  |  1996-06-12  |  75KB  |  615x520  |  4-bit (15 colors)

Labels: text | electronics | display | screenshot | parallel | number | line | font | software
OCR: Class Method Variables Search Actions Breakpoints Browsers Classes: Variables: Inherited Methods: [ inherited ContainerForm astChoice Controller Comment Controlleritem jopeninitialization vDrive Name updateDisplay CreateReportController vOk Cursor CutJoin Database Alphabetical Instance DatabasesController O Hierarchical Class Source File: dbicxtdbcre.cis createDatabase I name drive comment newDatabase result errorStr dbClassName dbClass } name >= vName gelValue. ^ (name notEmpty) IfTruc: [ dbClass := System at: [dbClassName := vType getValue). dbClass == nil ifTrue: [ errorStr := "This type of Database is not loaded". * MessageBox title: (self mainForm) title text: etrorStr icon: #ExclamationMark buttons: [#Ok) action: nil controller: self. (name size] > [dbClass maxDatabaseNameLength) ifTrue: [ vName setfocus. errorStr := 'Maximum Database name length is' ++ (dbClass maxDatabaseNameLength] ++ ". Please reenter.". ^ MessageBox title: [self mainForm] title text: errorStr Icon: FIGURE 2 The Enfin Class Browser provides a view into all of the Smalltalk classes and methods defined in Enfin.

---